home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #4 / utv2n4s2.d64 / the psychic (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  3KB  |  125 lines
  1. 10 rem the psychic, by david payne
  2. 20 bc=198:if fre(0)<>fre(1) then bc=208
  3. 100 gosub 1200
  4. 140 printtab(10)"[159] *** [201]nstructions ***"
  5. 210 print"    [212]he instructions are quite simple."
  6. 212 print" [202]ust guess a number between 0 and 30."
  7. 215 print" [206]ext answer the questions asked then [201]"
  8. 220 print" will guess the number."
  9. 300 printtab(7)"[150][208]ress '[210][197][212][213][210][206][150]' to [195]ontinue"
  10. 320 poke bc,0
  11. 330 get a$:if a$=chr$(13) or a$=chr$(141) then 360
  12. 335 if a$="[140]" then sys 8*4096+4
  13. 340 goto 330
  14. 360 gosub 1500
  15. 370 print"    [199]uess a number between 0 and 30"
  16. 390 printtab(7)"[150][208]ress '[210][197][212][213][210][206][150]' when [210]eady"
  17. 410 poke bc,0
  18. 420 get a$:if a$=chr$(13) or a$=chr$(141)then 450
  19. 425 if a$="[140]" then sys 8*4096+4
  20. 430 goto 420
  21. 450 gosub 1500
  22. 460 t=0
  23. 470 print "[159]      [201]s your number one of these?"
  24. 490 print tab(12)"[150][[217][150]]es  --  [[206][150]]o[155]"
  25. 510 c=0
  26. 520 for z=1 to 5
  27. 530 p$=""
  28. 540 for k=1 to 8
  29. 550 read t$
  30. 555 if len(t$)=1 then t$=" "+t$
  31. 560 p$=p$+t$+"  "
  32. 570 next k:gosub 1700
  33. 580 print "[155]"p$
  34. 590 p$=""
  35. 600 for k=1 to 7
  36. 610 read t$
  37. 615 if len(t$)=1 then t$=" "+t$
  38. 620 p$=p$+t$+"  "
  39. 630 next k
  40. 640 print ""p$
  41. 650 poke bc,0
  42. 660 get a$:if a$="" then 660
  43. 665 s=asc(a$)
  44. 670 if s=89 or s=217 then 700
  45. 680 if s=78 or s=206 then 750
  46. 685 if a$="[140]" then sys 8*4096+4
  47. 690 goto 660
  48. 700 if z=1 then t=2
  49. 710 if z=2 then t=t+1
  50. 720 if z=3 then t=t+16
  51. 730 if z=4 then t=t+8
  52. 740 if z=5 then t=t+4
  53. 750 gosub 1600
  54. 760 next z
  55. 770 gosub 1500
  56. 780 printtab(12)"[154][201] am thinking..."
  57. 790 for h=0 to 30 step 2
  58. 800 if t-h=0 then m=5:goto 820
  59. 810 next h
  60. 820 for k=1 to 900:next k
  61. 830 if m=5 then printtab(10)"[158][217]our number is even[158].":goto 850
  62. 840 printtab(10)"[158][217]our number is odd[158]."
  63. 850 for k=1 to 1000:next
  64. 860 if t=31 then gosub 1800:goto 880
  65. 870 print"   --> [217]ou picked the number [153]"t" <--"
  66. 880 print"[150]  '[159][198]8[150]' to [197]xit -- '[210][197][212][213][210][206][150]' to [210]estart"
  67. 890 poke bc,0
  68. 900 get a$:if a$="" then 900
  69. 905 s=asc(a$)
  70. 910 if s=13 or s=141 then 940
  71. 920 if s=140 then sys 8*4096+4
  72. 930 goto 900
  73. 940 clr:goto 360
  74. 950 restore 
  75. 960 hcolor= 7
  76. 970 goto 370
  77. 990 end 
  78. 1100 data 2,27,14,15,18,10,22,7,19,26,23,6,3,11,30
  79. 1110 data 1,5,17,11,9,21,3,29,19,7,15,25,23, 13,27
  80. 1120 data 16,24,28,17,30,21,18,22,23,19,26,27,25,20,29
  81. 1130 data  8,9,30,10,27,14,26,28,13,11,29,24,12,15,25
  82. 1140 data  4,23,20,7,12,15,6,30,5,21,14,22,13,29,28
  83. 1200 poke 53281,0:poke 53280,11
  84. 1210 print"[158][147]";
  85. 1230 printtab(14)"[188][187][172][146][190][161][146][161][161][146][161][161][172][162][146][190]"
  86. 1240 printtab(14)" [161][146][161] [161][188][190][146][161][161][188][146][187]"
  87. 1250 printtab(14)" [161][146][161] [161][146][161][161][146][161][161][146][161]"
  88. 1260 printtab(14)" [188][190] [188][190][188][190][188][162][162][146][190]"
  89. 1265 rem -----------
  90. 1270 printtab(6)"[161][172][187][146][187][172][172][187][146][187][161][146][161][161][146][161][172][172][162][188][161][146][161][161][146][161][188] [146][190][172][172][162][188]"
  91. 1280 printtab(6)"[161][188][190][146][190][188][188][146][162] [188][188][190][146][190][161][146][161]  [161][188][190][146][161]  [146] [161][146][161]"
  92. 1290 printtab(6)"[161][146][161]  [172][187][161][146][161] [161][146][161] [161][146][161] [162][161][146][161][161][146][161]  [146] [161][146][161] [162]"
  93. 1300 printtab(6)"[188][190]   [162][162][146]  [188][190]  [162][162][146][190][188][190][188][190][188][162][146][190] [162][162][146][190]"
  94. 1305 print"[156] [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  95. 1310 print"[159]      [208]sychic [205]ind [210]eading [208]rogram"
  96. 1320 printtab(10)"([158][195][159]) 1988 [196]avid [208]ayne"
  97. 1330 print"[150]    [208]ress '[210][197][212][213][210][206][150]' for [201]nstructions"
  98. 1340 print"[152] [208]ublished by [211]oftdisk [208]ublishing, [201]nc."
  99. 1350 get a$:if a$<>chr$(13) and a$<>chr$(141)then 1350
  100. 1355 gosub 1500
  101. 1360 return
  102. 1500 print""
  103. 1510 sp$="                                       "
  104. 1520 for i=1 to 13
  105. 1530 printsp$:next
  106. 1540 print"";
  107. 1550 return
  108. 1600 print""
  109. 1610 sp$="                                       "
  110. 1620 for i=1 to 9
  111. 1630 printsp$:next
  112. 1640 print"";
  113. 1650 return
  114. 1700 gosub 1600
  115. 1710 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  116. 1720 print"[221]                                 [221]"
  117. 1725 print"[221]                                 [221]"
  118. 1730 print"[221]                                 [221]"
  119. 1740 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  120. 1750 print"[145][145][145][145]";
  121. 1760 return
  122. 1800 printtab(8)"[150][217]our number is [214][197][210][217][150] odd."
  123. 1810 printtab(5)"[159][201]n fact it doesn't even exist."
  124. 1820 return
  125.